Public Partial Class FrmAfectacionUnidad
    Inherits System.Web.UI.Page
    Private TblUnidad As CapaDeNegocios.nUnidad = New CapaDeNegocios.nUnidad
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("Login") = "Anonimo" Then
            Response.Redirect("/")
        End If

        LLenarCboUnidad()
        LimpiarCampos()
    End Sub
    Sub LLenarCboUnidad()
        CboUnidad.DataSource = TblUnidad.Listar()
        CboUnidad.DataTextField = "Dominio"
        CboUnidad.DataValueField = "CodigoUnidad"
        CboUnidad.DataBind()

    End Sub
    Sub LimpiarCampos()
        Me.TxtFechaDesde.Text = ""
        Me.TxtFechaHasta.Text = ""
        CboUnidad.SelectedValue = 0
    End Sub



End Class